
Namespace Validation

    Public Class NotNullRuleEventArgs
        Inherits RuleEventArgs

#Region " Constructors "

        Public Sub New(ByVal e As NotNullValidatorAttribute, ByVal strPropertyName As String)
            MyBase.New(strPropertyName, e.PropertyFriendlyName, e.RuleSet, e.CustomMessage)
        End Sub

        Public Sub New(ByVal strCustomMessage As String, ByVal strPropertyFriendlyName As String, ByVal strPropertyName As String, ByVal strRuleSet As String)
            MyBase.New(strPropertyName, strPropertyFriendlyName, strRuleSet, strCustomMessage)
        End Sub

#End Region

    End Class

End Namespace
